home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 52 / 64er_Magazin_Sonderheft_52_19xx_Markt__Technik_de_Side_B.d64 / listing 7 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  43 lines
  1. 10 vz=2:ve$(1)="n":ve$(2)="nw"
  2. 50000 rem ****************************
  3. 50010 rem *     befehlseingabe       *
  4. 50020 rem *     befehlszerlegung     *
  5. 50030 rem *     befehlscodierung     *
  6. 50040 rem ****************************
  7. 50050 ifud=1then50220
  8. 50060 poke198,0:be$="":print"was nun ? ";
  9. 50070 poke204,0
  10. 50080 getx$:ifx$=""then50080
  11. 50090 ifpeek(203)=1orlen(be$)>68thenprint" ":poke204,1:goto50140
  12. 50100 i=asc(x$):ifi<65ori>90thenifi<>32andi<>20andi<>34then50080
  13. 50110 ifi=20andbe$=""then50080
  14. 50120 ifi=20thenpoke204,1:print"[157]  [157][157]";:be$=left$(be$,len(be$)-1):goto50070
  15. 50130 printx$;:be$=be$+x$:goto50080
  16. 50140 fori=1to10:be$(i)="":next:wz=1:fori=1tolen(be$)
  17. 50150 :ifmid$(be$,i,1)=" "thengosub50190:goto50180
  18. 50160 :ifwz>10thenprint"eingabe ist zu lang !":i=len(be$)+1:goto50180
  19. 50170 :be$(wz)=be$(wz)+mid$(be$,i,1)
  20. 50180 nexti:goto50220
  21. 50190 ic=0:fori1=1toaz:ifbe$(wz)=au$(i1)thenic=1
  22. 50200 nexti1:ific=0thenwz=wz+1:return
  23. 50210 be$(wz)="":return
  24. 50220 ifud=1thenud=0:goto50240
  25. 50230 wz=1:ve=0:ob=0:pe=0
  26. 50240 ic=0:g1=0:g2=0
  27. 50250 fori=1tovz:ifbe$(wz)=ve$(i)thenve=i:ic=1
  28. 50251 iflen(be$(wz))<3then50260
  29. 50255 ifbe$(wz)=left$(ve$(i),len(be$(wz)))thenve=i-val(right$(ve$(i),1)):ic=1
  30. 50260 nexti:ific=1then50350
  31. 50270 fori=1togz:ifbe$(wz)<>ge$(i)then50300
  32. 50280 ic=1:ifg1=0theng1=i
  33. 50290 g2=i:ifg2=g1theng2=0
  34. 50300 nexti:ific=1then50350
  35. 50310 fori=1tooz:ifbe$(wz)=ob$(i)thenob=i:ic=1
  36. 50320 nexti:ific=1then50350
  37. 50330 fori=1topz:ifbe$(wz)=pe$(i)thenpe=i:ic=1
  38. 50340 nexti
  39. 50350 ifbe$(wz)="und"thenud=1:ic=1
  40. 50360 ific=0thenprint"ich kenne ";be$(wz);" nicht !":return
  41. 50370 wz=wz+1:ifwz>10orbe$(wz)=""orud=1thenreturn
  42. 50380 ic=0:goto50250
  43.